home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
qbtools1.arc
/
AEINITFL.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-01-11
|
2KB
|
39 lines
rem $linesize:132
rem $title:'Application Engineer Standard Routines'
rem $subtitle:'Initialise new file's header record'
' Include the COMMON values
rem $include:'AESHARED.BAS'
sub Init.New.File(fl%,rlen%) static
r%=rlen%-8% ' Rest of the record
field #fl%,1 as stat$,2 as n.av$,2 as l.av$,1 as mj$,1 as mn$,1 as bug.fix$
field #fl%,8 as dummy$,r% as filler$
' stat$ = Status (1 = Open / 2 = Closed)
' n.av$ = Next available record
' l.av$ = Last available record
' mj$ = Application Engineer Major release version
' mn$ = Application Engineer Minor release version
' bug.fix$ = Bug fix code within Minor release
lset stat$=chr$(2%) ' File closed
lset n.av$=mki$(2%) ' Next available record in file
lset l.av$=mki$(2%) ' Last available record in file
lset mj$=chr$(0%) ' Version 0 (Pre-release)
lset mn$=chr$(0%) ' 0 (Pre-release)
lset bug.fix$=chr$(66) ' B (BETA testing)
lset filler$=string$(r%,0%) ' Filler
put #fl%,1 ' Write header info
field #fl%,2 as pt$,r%+6% as filler$
lset pt$=mki$(-1%) ' End of chain marker
lset filler$=string$(r%+6%,32%) ' Initialize the record
put #fl%,2% ' Write first available record info
end sub